home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld 1997 November
/
Macworld (1997-11).dmg
/
Shareware World
/
Comms & Internet
/
Yadora
/
yadora-msg text
< prev
next >
Wrap
Text File
|
1997-08-26
|
731b
|
20 lines
tell application "NewsWatcher"
set fromAddress to getarticle messageField "From"
set theSubject to getarticle messageField "Subject"
set theDate to getarticle messageField "Date"
set groups to getarticle messageField "Newsgroups"
set theBody to getarticle messageField ""
set newbody to "Newsgroups: " & groups & (ASCII character 13) & (ASCII character 13) & theBody
end tell
tell application "Eudora"
make message at end of mailbox "out"
set field "from" of message 0 to fromAddress
set field "subject" of message 0 to theSubject
set field "to" of message 0 to fromAddress
set field "" of message 0 to newbody
set status of message 0 to unread
save message 0
move message 0 to end of mailbox "in"
activate
end tell